home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
mathstud.zip
/
IFFT.M
< prev
next >
Wrap
Text File
|
1993-03-23
|
467b
|
29 lines
function y=ifft(x,n)
%y=ifft(x,n)
%computes the inverse FFT of the input array, x
%n specifies the size of the required transform
% S.Halevy 7/31/92
% Copyright (c) 1992 by the MathWizards
if ~isvector(x)
error('input argument should be a vector')
end
[xm,xn]=size(x);
x=x(:);
if nargin > 1
nx = length(x);
if nx > n
x=x(1:n);
else
x(n)=0;
end
end
y=_ifft(x)/length(x);
if xn > xm
y=y.';
end